Sub μ()
 
    Dim ü As Integer
    Dim () As String
    Dim  As Integer,  As Integer
    Dim Է As String
    Dim ޽ As String
    Dim i As Integer
 
    ޽ = "ӵ  ""-""  ڷ, " & vbCr
    ޽ = ޽ & "  "","" ڷ  Էϼ!" & vbCr & vbCr
    ޽ = ޽ & "  1,2,3,5  μϷ " & vbCr
    ޽ = ޽ & "1-3,5  Էմϴ."
 
    Է = Application.InputBox(޽, "  μ")
    ü = ActiveSheet.PageSetup.Pages.Count
    
    If ü > 0 Then
        
        () = Split(Է, ",")
        
        For i = 0 To UBound()
            
            If InStr(1, (i), "-") > 0 Then
                        
                 = CInt(Left((i), InStr(1, (i), "-") - 1))
                 = CInt(Mid((i), InStr(1, (i), "-") + 1))
                        
                ActiveSheet.PrintOut From:=, To:=
                
            Else
            
                If ü >= CInt((i)) Then
                    
                    ActiveSheet.PrintOut From:=(i), To:=(i)
                    
                End If
                
            End If
 
        Next i
 
   End If
    
End Sub